This command will return the number of CD tracks currently available from the CD Audio media present on the system.

Return Integer=GET NUMBER OF CD TRACKS()

This command will return the number of CD tracks currently available from the CD Audio media present on the system

If no CD Audio media is present, this command returns a zero.

print "make sure there is a cd in the cd drive, not the dvd drive"

print "NUMBER OF TRACKS ON CD IS ",GET NUMBER OF CD TRACKS()

print "please enter a track to play"

while spacekey()=0

a$="0"

a$=inkey$()

if val(a$)>0 and MUSIC EXIST(1)=1

if music playing(1)=1 then stop music 1

delete music 1

endif

if val(a$)>0

if val(a$)>0 and val(a$)
print "playing track ",a$

load cdmusic val(a$),1

Play music 1

repeat:until scancode()=0

endif

endif

endwhile

stop music 1

end

MUSIC Commands Menu
Index